home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / qlib205.zip / QLIB.ZIP / SRC / QLIB / IRQ.ASM < prev    next >
Assembly Source File  |  1996-11-11  |  507b  |  36 lines
  1. include qlib.inc
  2.  
  3. .code
  4. irq_enable proc uses ebx ecx,irqn:byte  ;0=enabled
  5.   in al,0a1h
  6.   mov ah,al
  7.   in al,021h
  8.   mov cl,irqn
  9.   mov bx,1
  10.   shl bx,cl
  11.   not bx
  12.   and ax,bx
  13.   out 021h,al
  14.   mov al,ah
  15.   out 0a1h,al
  16.   xor eax,eax
  17.   ret
  18. irq_enable endp
  19.   
  20. irq_disable proc uses ebx ecx,irqn:byte  ;1=disabled
  21.   in al,0a1h
  22.   mov ah,al
  23.   in al,021h
  24.   mov cl,irqn
  25.   mov bx,1
  26.   shl bx,cl
  27.   or ax,bx
  28.   out 021h,al
  29.   mov al,ah
  30.   out 0a1h,al
  31.   xor eax,eax
  32.   ret
  33. irq_disable endp
  34.  
  35. end 
  36.